home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Unofficial Addons & Patches / MicroProse Formula One Grand Prix - World Circuit Acessories Disk (1995-12-09)(Roberts, Oliver).zip / MicroProse Formula One Grand Prix - World Circuit Acessories Disk (1995-12-09)(Roberts, Oliver).adf / Install_F1GP < prev    next >
Text File  |  1995-09-06  |  4KB  |  186 lines
  1. ; Formula One Grand Prix / World Circuit Installer script
  2. ; $VER: Install_F1GP 1.1 (6.9.95)
  3. ; written by Oliver Roberts
  4. ;
  5. ; Please report any bugs this script has :-)
  6.  
  7. (complete 0)
  8.  
  9. (if (NOT (askbool
  10.       (prompt "This Installer script will attempt to install MicroProse's "
  11.               "Formula One Grand Prix (or World Circuit) game to your hard "
  12.               "drive in a friendly manner (unlike the official installer "
  13.               "supplied with the game itself!).  If you already have the "
  14.               "game installed on your hard drive you shouldn't need to use "
  15.               "this script!\n\n"
  16.               "Make sure you have booted from your hard drive, before "
  17.               "continuing with this installation!\n\nDo you want to continue?"
  18.       )
  19.       (default 0)
  20.       (help "")
  21.    ))
  22.    (exit (quiet))
  23. )
  24.       
  25. (welcome "")
  26.  
  27. (set f1gpver
  28.    (askchoice
  29.       (prompt "What version of the game you have?")
  30.       (help @askchoice-help)
  31.       (choices "(A) Formula One Grand Prix (4 disk version)"
  32.                "(B) World Circuit"
  33.                "(C) Formula One Grand Prix (3 disk version)"
  34.       )
  35.    )
  36. )
  37.  
  38. (set disk1pat "~(system#?|.info|Disk#?)")
  39. (set disk2pat "~(system#?|.info|remove#?|Disk#?)")
  40. (set disk2patintroA "~(system#?|.info|remove#?|Disk#?|formula#?)")
  41. (set disk2patintroB "~(system#?|.info|remove#?|Disk#?|world#?)")
  42. (set disk3pat "#?")
  43. (set disk4pat "~(read#?|install#?|Disk#?|more)")
  44. (set disktext "\n\nPlease insert\n\n")
  45.  
  46. (if (= f1gpver 0)
  47.    (
  48.       (set disktext (cat disktext "Formula One Grand Prix disk "))
  49.       (set disk2patintro disk2patintroA)
  50.    )
  51. )
  52.  
  53. (if (= f1gpver 1)
  54.    (
  55.       (set disktext (cat disktext "World Circuit disk "))
  56.       (set disk2patintro disk2patintroB)
  57.    )
  58. )
  59.  
  60. (if (= f1gpver 2)
  61.    (
  62.       (set disktext (cat disktext "Formula One Grand Prix disk "))
  63.       (set numdisks 3)
  64.       (set disk1pat disk2pat)
  65.       (set disk2pat disk3pat)
  66.       (set disk3pat disk4pat)
  67.    )
  68.    (
  69.       (set numdisks 4)
  70.       (if (= 0 (askchoice
  71.          (prompt "What would you you like to happen when you click on the game icon?")
  72.          (help @askchoice-help)
  73.          (default 1)
  74.          (choices "Run the intro (as if booting from disk 1)"
  75.                   "Skip the intro (as if booting from disk 2)")
  76.          ))
  77.          (set disk2pat disk2patintro)
  78.       )
  79.    )
  80. )
  81.  
  82. (set destdir
  83.    (askdir
  84.       (prompt "Select a drawer in which to install the game (no separate drawer is created)")
  85.       (help @askdir-help)
  86.       (default @default-dest)
  87.    )
  88. )
  89.  
  90. (set @default-dest destdir)
  91.  
  92. (askdisk
  93.    (prompt (cat disktext "1"))
  94.    (dest "f1gp_disk_#1")
  95.    (help @askdisk-help)
  96. )
  97.  
  98. (copyfiles
  99.    (source "f1gp_disk_#1:")
  100.    (dest @default-dest)
  101.    (pattern disk1pat)
  102.    (files)
  103.    (infos)
  104.    (optional "oknodelete" "force")
  105.    (help @copyfiles-help)
  106. )
  107.  
  108. (complete 20)
  109.  
  110. (askdisk
  111.    (prompt (cat disktext "2"))
  112.    (dest "f1gp_disk_#2")
  113.    (help @askdisk-help)
  114. )
  115.  
  116. (copyfiles
  117.    (source "f1gp_disk_#2:")
  118.    (dest @default-dest)
  119.    (pattern disk2pat)
  120.    (files)
  121.    (infos)
  122.    (optional "oknodelete" "force")
  123.    (help @copyfiles-help)
  124. )
  125.  
  126. (complete 60)
  127.  
  128. (askdisk
  129.    (prompt (cat disktext "3"))
  130.    (dest "f1gp_disk_#3")
  131.    (help @askdisk-help)
  132. )
  133.  
  134. (copyfiles
  135.    (source "f1gp_disk_#3:")
  136.    (dest @default-dest)
  137.    (pattern disk3pat)
  138.    (files)
  139.    (infos)
  140.    (optional "oknodelete" "force")
  141.    (help @copyfiles-help)
  142. )
  143.  
  144. (complete 80)
  145.  
  146. (if (= numdisks 4)
  147.    (
  148.       (askdisk
  149.          (prompt (cat disktext "4"))
  150.          (dest "f1gp_disk_#4")
  151.          (help @askdisk-help)
  152.       )
  153.       (copyfiles
  154.          (source "f1gp_disk_#4:")
  155.          (dest @default-dest)
  156.          (pattern disk4pat)
  157.          (files)
  158.          (infos)
  159.          (optional "oknodelete" "force")
  160.          (help @copyfiles-help)
  161.       )
  162.    )
  163. )
  164.  
  165. (complete 95)
  166.  
  167. (startup "Formula One Grand Prix"
  168.    (prompt "Adding F1GP disk assigns to user-startup")
  169.    (command 
  170.       ("Assign f1gp_disk_#1: %s\n" @default-dest)
  171.       ("Assign f1gp_disk_#2: %s\n" @default-dest)
  172.       ("Assign f1gp_disk_#3: %s\n" @default-dest)
  173.       (if (= numdisks 4) ("Assign f1gp_disk_#4: %s\n" @default-dest))
  174.    )
  175.    (help @startup-help)
  176. )
  177.  
  178. (complete 100)
  179.  
  180. (exit
  181.    "You must now reboot your Amiga before attempting to load "
  182.    "the game.\n\n"
  183.    "Oliver Roberts (O.J.C.Roberts@essex.ac.uk)\n"
  184.    "http://cswww2.essex.ac.uk/users/robeoy/"
  185. )
  186.